home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / TIME.ELC < prev    next >
Text File  |  1993-03-28  |  2KB  |  27 lines
  1. ;;; compiled by jwz@thalidomide on Fri Dec 11 18:48:21 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/time.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'timer)
  14. (defvar display-time-interval 60 "\
  15. *Seconds between updates of time in the mode line.")
  16. (defvar display-time-echo-area nil "\
  17. *If non-nil, display-time will use the echo area instead of the mode line.")
  18. (byte-code "└┴!¼é┬┬ç" [boundp display-time-string nil] 2)
  19. (fset 'display-time #[nil "└┴!ë½ä├\n!ê) ¼à¼é╞ ¼è╟>¼à╚╔\"╩ ê╦┴╩ ë$ç" [get-timer "display-time" old delete-timer display-time-echo-area global-mode-string ("") display-time-string append (display-time-string) display-time-function start-timer display-time-interval] 6 "\
  20. Display current time and load level in mode line of each buffer.
  21. Updates automatically every minute.
  22. If display-time-day-and-date is non-nil, the current day and date
  23. are displayed as well.
  24. If display-time-echo-area is non-nil, the time is displayed in the
  25. echo area instead of in the mode-line." nil])
  26. (byte-code "└┴Mê┬├!ç" [display-time-function #[nil "└ ┴┬├ @\" ┼╞!«ç┼╟!«é╚ P╔ëë\n  ╨╤╥O!ë ╙Y  ╙V½ê ╙Z ¬ë ╘U½â╙ ┴╒ \"╥╓O ½â╫¬ü╪╘┘O┌┘╔O█!½ì▄▌!8╘V½â▐¬ü▀░\n ½è╘╤O\nP\n!½ìΓ π =«öèΣï)¬Ä\n%èµ qê)τΦ !.ç" [current-time-string format "%03d" load-average rmail-spool-directory getenv "LOGNAME" "USER" user-login-name nil string pm hour mail-spool-file load time read 11 13 12 0 "%d" 16 "pm " "am " -2 "." file-exists-p 7 file-attributes " Mail" "" display-time-day-and-date display-time-echo-area selected-window minibuffer-window ((byte-code "└┴ !ê┬ ê├  GZ┼Zjê cê╞╟ !ç" [select-window minibuffer-window erase-buffer screen-width string 1 message buffer-string] 2)) display-time-string other-buffer set-buffer-modified-p buffer-modified-p] 10] provide time] 2)
  27.